Option Explicit
Sub E_Sample020()
   'ո E_Data01u@g
    Dim myRng As Range
    Dim mySht As Worksheet
    Set myRng = _
    Worksheets("E_Data01").Range("A1").CurrentRegion        'ӷd
    With myRng
        .AutoFilter Field:=3, Criteria1:="=s*"             '󪺫w
        MsgBox "o{ " & .Columns(1).SpecialCells(xlCellTypeVisible) _
        .Cells.Count - 1 & " ơC"
        .AutoFilter
    End With
    Set myRng = Nothing                                     '
End Sub


